home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
telecomm
/
storm100.lzh
/
SOUNDS.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-11-04
|
318b
|
18 lines
READ n
WHILE n
a$ = ""
FOR x = 1 TO n:READ v:a$ = a$ + CHR$(v):NEXT x
PLAY a$
PAUSE 3
READ n
WEND
END
REM gunshot
DATA 16,6,15,7,7,8,16,9,16,10,16,12,16,13,0,255,0
REM explosion
DATA 16,6,0,7,7,8,16,9,16,10,16,12,56,13,0,255,0
REM whistling bomb
DATA 14,7,62,8,15,128,48,129,0,1,254,8,0,255,0
DATA 0